home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / hf.dir / 00079_Cat List.ls < prev    next >
Encoding:
Text File  |  1996-04-19  |  785 b   |  28 lines
  1. global gHFCatLastLine
  2.  
  3. on mouseDown
  4.   if the doubleClick and (the mouseLine <> -1) then
  5.     dontPassEvent()
  6.     exit
  7.   end if
  8.   set gHFCatLastLine to -1
  9.   set mLine to the mouseLine
  10.   if mLine = -1 then
  11.     exit
  12.   else
  13.     set executeOnce to 0
  14.     repeat while the stillDown or (executeOnce = 0)
  15.       set mLine to the mouseLine
  16.       if (mLine <> gHFCatLastLine) and (mLine <> -1) then
  17.         set the foreColor of line gHFCatLastLine of field "Cat List" to 255
  18.         set the foreColor of line mLine of field "Cat List" to 251
  19.         set gHFCatLastLine to mLine
  20.         set executeOnce to 1
  21.       end if
  22.     end repeat
  23.   end if
  24.   set the foreColor of line gHFCatLastLine of field "Cat List" to 255
  25.   set vText to line gHFCatLastLine of field "Cat List"
  26.   addDelCategory(vText)
  27. end
  28.